object DMInvoice: TDMInvoice
  OldCreateOrder = False
  Height = 868
  Width = 969
  object his_encounter_invoice: TUniTable
    TableName = 'his_encounter_invoice'
    Connection = FConnection.UniConnection1
    Active = True
    Left = 64
    Top = 24
  end
  object DShis_encounter_invoice: TUniDataSource
    DataSet = his_encounter_invoice
    Left = 64
    Top = 88
  end
  object his_encounter_invoice_details: TUniTable
    TableName = 'his_encounter_invoice_details'
    Connection = FConnection.UniConnection1
    MasterSource = DShis_encounter_invoice
    MasterFields = 'his_encounter_invoice_id'
    DetailFields = 'his_encounter_invoice_id'
    Active = True
    Filtered = True
    Left = 216
    Top = 24
    ParamData = <
      item
        DataType = ftInteger
        Name = 'his_encounter_invoice_id'
        ParamType = ptInput
        Value = 1
      end>
  end
  object DShis_encounter_invoice_details: TUniDataSource
    DataSet = his_encounter_invoice_details
    Left = 216
    Top = 80
  end
  object cnss_encounter_calculate_prices: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call cnss_encounter_calculate_prices(:a);')
    Left = 88
    Top = 360
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end>
  end
  object cnss_encounter_recalculate_item: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call cnss_encounter_recalculate_item(:a, :b, :c);')
    Left = 264
    Top = 360
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'b'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'c'
        Value = nil
      end>
  end
  object cnss_encounter_invoice_totals: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call cnss_encounter_invoice_totals(:a);')
    Left = 432
    Top = 360
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end>
  end
  object encounter_get_all_items: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call encounter_get_all_items(:a, :b);')
    Left = 680
    Top = 352
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'b'
        Value = nil
      end>
  end
  object ins_encounter_calculate_prices: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call ins_encounter_calculate_prices(:a);')
    Left = 88
    Top = 416
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end>
  end
  object ins_encounter_recalculate_item: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call ins_encounter_recalculate_item(:a, :b, :c);')
    Left = 264
    Top = 416
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'b'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'c'
        Value = nil
      end>
  end
  object ins_encounter_invoice_totals: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call ins_encounter_invoice_totals(:a);')
    Left = 432
    Top = 416
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end>
  end
  object coop_encounter_calculate_prices: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call coop_encounter_calculate_prices(:a);')
    Left = 88
    Top = 472
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end>
  end
  object coop_encounter_recalculate_item: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call coop_encounter_recalculate_item(:a, :b, :c);')
    Left = 264
    Top = 472
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'b'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'c'
        Value = nil
      end>
  end
  object coop_encounter_invoice_totals: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call coop_encounter_invoice_totals(:a);')
    Left = 432
    Top = 472
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end>
  end
  object armee_encounter_calculate_prices: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call armee_encounter_calculate_prices(:a);')
    Left = 88
    Top = 528
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end>
  end
  object armee_encounter_recalculate_item: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call armee_encounter_recalculate_item(:a, :b, :c);')
    Left = 264
    Top = 528
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'b'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'c'
        Value = nil
      end>
  end
  object armee_encounter_invoice_totals: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call armee_encounter_invoice_totals(:a);')
    Left = 432
    Top = 528
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end>
  end
  object mini_encounter_calculate_prices: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call mini_encounter_calculate_prices(:a);')
    Left = 88
    Top = 584
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end>
  end
  object mini_encounter_recalculate_item: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call mini_encounter_recalculate_item(:a, :b, :c);')
    Left = 264
    Top = 584
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'b'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'c'
        Value = nil
      end>
  end
  object mini_encounter_invoice_totals: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call mini_encounter_invoice_totals(:a);')
    Left = 432
    Top = 584
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end>
  end
  object fsi_encounter_calculate_prices: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call fsi_encounter_calculate_prices(:a);')
    Left = 88
    Top = 640
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end>
  end
  object fsi_encounter_recalculate_item: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call fsi_encounter_recalculate_item(:a, :b, :c);')
    Left = 264
    Top = 640
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'b'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'c'
        Value = nil
      end>
  end
  object fsi_encounter_invoice_totals: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call fsi_encounter_invoice_totals(:a);')
    Left = 432
    Top = 640
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end>
  end
  object muni_encounter_calculate_prices: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call muni_encounter_calculate_prices(:a);')
    Left = 88
    Top = 696
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end>
  end
  object muni_encounter_recalculate_item: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call muni_encounter_recalculate_item(:a, :b, :c);')
    Left = 264
    Top = 696
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'b'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'c'
        Value = nil
      end>
  end
  object muni_encounter_invoice_totals: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call muni_encounter_invoice_totals(:a);')
    Left = 432
    Top = 696
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end>
  end
  object ins_ins_encounter_calculate_prices: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call ins_ins_encounter_calculate_prices(:a, :b);')
    Left = 88
    Top = 752
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'b'
        Value = nil
      end>
  end
  object ins_ins_encounter_recalculate_item: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call ins_ins_encounter_recalculate_item(:a, :b, :c);')
    Left = 288
    Top = 752
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'b'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'c'
        Value = nil
      end>
  end
  object ins_ins_encounter_invoice_totals: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call ins_ins_encounter_invoice_totals(:a);')
    Left = 480
    Top = 752
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end>
  end
  object ins_cnss_encounter_calculate_prices: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call ins_cnss_encounter_calculate_prices(:a, :b);')
    Left = 88
    Top = 808
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'b'
        Value = nil
      end>
  end
  object ins_cnss_encounter_recalculate_item: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call ins_cnss_encounter_recalculate_item(:a, :b, :c);')
    Left = 288
    Top = 808
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'b'
        Value = nil
      end
      item
        DataType = ftUnknown
        Name = 'c'
        Value = nil
      end>
  end
  object ins_cnss_encounter_invoice_totals: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call ins_cnss_encounter_invoice_totals(:a);')
    Left = 480
    Top = 808
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end>
  end
  object ins_cnss_encounter_calculate_diffrence: TUniQuery
    Connection = FConnection.UniConnection1
    SQL.Strings = (
      'call ins_cnss_encounter_calculate_diffrence(:a);')
    Left = 688
    Top = 808
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'a'
        Value = nil
      end>
  end
  object his_encounter_invoice_details_sejour: TUniTable
    TableName = 'his_encounter_invoice_details_sejour'
    Connection = FConnection.UniConnection1
    MasterSource = DShis_encounter_invoice
    MasterFields = 'his_encounter_invoice_id'
    DetailFields = 'his_encounter_invoice_id'
    Active = True
    Left = 96
    Top = 136
    ParamData = <
      item
        DataType = ftInteger
        Name = 'his_encounter_invoice_id'
        ParamType = ptInput
        Value = 1
      end>
  end
  object DShis_encounter_invoice_details_sejour: TUniDataSource
    DataSet = his_encounter_invoice_details_sejour
    Left = 96
    Top = 192
  end
  object his_encounter_invoice_details_bloc: TUniTable
    TableName = 'his_encounter_invoice_details_bloc'
    Connection = FConnection.UniConnection1
    MasterSource = DShis_encounter_invoice
    MasterFields = 'his_encounter_invoice_id'
    DetailFields = 'his_encounter_invoice_id'
    Active = True
    Left = 296
    Top = 136
    ParamData = <
      item
        DataType = ftInteger
        Name = 'his_encounter_invoice_id'
        ParamType = ptInput
        Value = 1
      end>
  end
  object DShis_encounter_invoice_details_bloc: TUniDataSource
    DataSet = his_encounter_invoice_details_bloc
    Left = 296
    Top = 192
  end
  object his_encounter_invoice_details_divers: TUniTable
    TableName = 'his_encounter_invoice_details_divers'
    Connection = FConnection.UniConnection1
    MasterSource = DShis_encounter_invoice
    MasterFields = 'his_encounter_invoice_id'
    DetailFields = 'his_encounter_invoice_id'
    Active = True
    Left = 496
    Top = 136
    ParamData = <
      item
        DataType = ftInteger
        Name = 'his_encounter_invoice_id'
        ParamType = ptInput
        Value = 1
      end>
  end
  object DShis_encounter_invoice_details_divers: TUniDataSource
    DataSet = his_encounter_invoice_details_divers
    Left = 496
    Top = 192
  end
  object his_encounter_invoice_details_hono_details: TUniTable
    TableName = 'his_encounter_invoice_details_hono_details'
    Connection = FConnection.UniConnection1
    MasterSource = DShis_encounter_invoice
    MasterFields = 'his_encounter_invoice_id'
    DetailFields = 'his_encounter_invoice_id'
    Active = True
    Left = 720
    Top = 136
    ParamData = <
      item
        DataType = ftInteger
        Name = 'his_encounter_invoice_id'
        ParamType = ptInput
        Value = 1
      end>
  end
  object DShis_encounter_invoice_details_hono_details: TUniDataSource
    DataSet = his_encounter_invoice_details_hono_details
    Left = 720
    Top = 192
  end
  object his_encounter_invoice_details_lab: TUniTable
    TableName = 'his_encounter_invoice_details_lab'
    Connection = FConnection.UniConnection1
    MasterSource = DShis_encounter_invoice
    MasterFields = 'his_encounter_invoice_id'
    DetailFields = 'his_encounter_invoice_id'
    Active = True
    Left = 96
    Top = 240
    ParamData = <
      item
        DataType = ftInteger
        Name = 'his_encounter_invoice_id'
        ParamType = ptInput
        Value = 1
      end>
  end
  object DShis_encounter_invoice_details_lab: TUniDataSource
    DataSet = his_encounter_invoice_details_lab
    Left = 96
    Top = 296
  end
  object his_encounter_invoice_details_pharma: TUniTable
    TableName = 'his_encounter_invoice_details_pharma'
    Connection = FConnection.UniConnection1
    MasterSource = DShis_encounter_invoice
    MasterFields = 'his_encounter_invoice_id'
    DetailFields = 'his_encounter_invoice_id'
    Active = True
    Left = 296
    Top = 240
    ParamData = <
      item
        DataType = ftInteger
        Name = 'his_encounter_invoice_id'
        ParamType = ptInput
        Value = 1
      end>
  end
  object DShis_encounter_invoice_details_pharma: TUniDataSource
    DataSet = his_encounter_invoice_details_pharma
    Left = 296
    Top = 296
  end
  object his_encounter_invoice_details_radio: TUniTable
    TableName = 'his_encounter_invoice_details_radio'
    Connection = FConnection.UniConnection1
    MasterSource = DShis_encounter_invoice
    MasterFields = 'his_encounter_invoice_id'
    DetailFields = 'his_encounter_invoice_id'
    Active = True
    Left = 496
    Top = 240
    ParamData = <
      item
        DataType = ftInteger
        Name = 'his_encounter_invoice_id'
        ParamType = ptInput
        Value = 1
      end>
  end
  object DShis_encounter_invoice_details_radio: TUniDataSource
    DataSet = his_encounter_invoice_details_radio
    Left = 496
    Top = 296
  end
end
